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8Y3SrOPSIS 


Ihis proaect worl? has been done for the 
implementation of IHEEL, a language suitable for 
system implementation, on IBM 7044 • Ihis ccmpiler 
IS an out-core type, comprising of two passes. 
Present work elaborates the working of Pass II 
(of the compiler) and Runtime Routines (used 
during execution) • 

Ihe output of Pass II, the final coding 
in MAP of a lUPIi source progrejnme is loaded to 
iihe assembler, the outpuc of ,7hioh, inturn with 
runtime routines, is fed as input to the loader 
for the execution of the programme . 

(The programme is written in PQRSRAII 17 
with runtime routines in MaP, the assembly language 
of IBM 7044. 



CHAK.JR I 


ijTTaODUOgiOK 


The purpose of chc project " laplemenxation of 
IITPL on IBtl 7044-" is to select end implement a language 
suitable for system implementation. 

This project work has been carried out jointly by 
the author and Ilr . J,K, Sicha. Present thesis deals v/ith 
xhe second part (last paii;) of the project. To understand 
xhe complete picture of the project, one is sug^esxod Lo 
go through the thesis presented by Mr, J,K, Sinha, 

In this part, the descriptions of the Intermediate 
Processor (\/hich managv^s the provisions for subprogramme 
linl:age and checks validity of inxer-subprograimae control 
transfers), the codiuig done in PASS II, management of 
dynamic allocation, and runtir’c rouxines arc given. 

In PASS I of the compiler (See A-ppenduc I) coding 
of all statements, excepx CAIiL sxacements cid tnose G-OTO 
scotements, the coding of v/hich is not possible in PASS I, 

IS done* To facilitate the codiiig of OAUj nn<i aos-ve 
mentioned GOTO statements in PASS II; symbol tatle, lOAIOl 
table, and GOTO table ^re managed by PASS I (See Appendix II). 

Symbol Table : It is a table of all the labels, variables 
declared in the subprogramme and block names. Particular 
labels or variables can bo searched in symbol table by 
SYMTAB routine (See A.ppcndix II). 



X 




IGx tUi table . ICaIiI tablG totps all th3 cross references 
bexween blocics. 

GOIO Table : It is a table of strings of unfound labels 
of procedures. Tne first label of e«cli string is ch.e 
nemo of the procedure v/here rest lablos of the strings 
arc needed by GOTO stexements. 

Por keeping tiie xrack uf the blocks in PASS II, 

♦ 

strings arc provided oy PASS I at coding points of 
P20CSDDEB, EBGIF and 2£D statements. 

I 

Tne PASS I output of the IITPl source program is 
on TAPA 0, which is taken as input for thu PASS II, The 
final compiled output of the IITPI programme i-. <n?ittbn 
on TAPE 4 which is loaded for the execution. 


CHAPTER II 


PTTBRtEDIAJlIE PROCESSOR 


The functions of Intermediate ^rocressor are 
the followings: 

1 ) This checks the ■'’■'^lidixy of subprogramme linkage and 
propel arrangemeii bs nre done for liter -subprogramme 
transfer . 

2) Possibility of recui'sion and invcilid incer-subprogramme 
cransfor is sensed. 

Checking rnr Bflf>n-- 3ion : 

With the help of ICAIiL uable, uhe lov^esc lev8l(I) 
procedure, called by air/ proceduiu la loci uod out firot. 

If there are many procedures of lo./est level (I), chen the 
procedure which is copmost in the ICAIIi bable is taken. 
Then a string of I level procedures elements with thia 
procedure as HEADuR, is formed. Each preceding link (or 
element) calls the following link. If ans' particular 
link (i.e. procedure) is found again, it shows the 
recursion. Thus is given error. The above mentioned 
string IS formed in ICIIECK table . 

Similar operebton is done, vatn nest procedure 
of level Ii as header, until the clioclcing t/ibh all the 
procedures of level I as header is done. Hxen sinilar 
checking is done witn the precedures of level (1-1), 

i 

(Ii’-2 ) , , , .2 respectively . 


In this Mcy all jjossible recursions are checked. 

Provis ion lor Intor-subprogramne Linkage : 

In argr suoprogranixio , onu or iro2?o activo clocks can 
30 simulteneously endec! by one single G-OIO sta cement. It 
depends upon tne path of activetion of blocks and the 
availability in the active blocks of the label where the 
control wants to transfer, 

E xample • 

PI . .PROCBDin® 

OAIiI P2 , . 

P2 , .PROOEDUHE 

12 . .Stmt , , 

BEaiF 
CADI P3 

13 , •Stmt ) , 

END P2 , , 

CADI P3 , . 

P3 . -PROCEDDBE ,, 

G-OTO 13 
Stmts 
GOTO 12 , . 

Stmts 
GOTO II , . 

END P3 

11 . . 5tmt } • 

12 . . 5tmt , . 

13 • aStmt f • 

BHD PI 



Procedure P3 can be accivalied m t^/o weysj 

1 ) P3 activated by PI — In this case, all the three 
sta cements *GO!PO 13,l^0rc Ii2,.’and ’&0I0 L1,.Vill cause 
tornination of the bl clc P3 and the control vill go to the 
labels 13, L2 and II of procedure P1 for the corresponding 
f'OIO sta cement, 

2) P2 acoivated by PI, which activates EBGrIlI block, 
i/hicn in turn activates P3s- 

Kow the three (xOlO stalements of px-ocedure P3 will 
adopt three difxerent courses of actions. Each case is 
discussed below: 

i) GOTO 13 - Since 13 is not available in P3, so P3 
will be tci*minated and the control is now in the IBGIF 
block, which has a sta-cemen'; \n.th label 13 cind thus control 
will transfer to this 13* 

ii) GOTO 12 - Since 12 is nob available in P3, P3 \/ill 
be terminated and the control is in BBGIl", -iicrc also 12 is 
not available and so this block ^ill also be ccrminiuod axid 
by tracing back the activacion pabh, tno contiol rv. aches tbs 
procedure P2, where 12 is found, tnua t.j.o concrol transfers 
bo that statement. 

Ill) GOTO II - Similar to 12, it will reach upto tne 
procedure P2, but since II is not available oven tlicro, it 
will also be torminaced and bhc control will trcinefer to II 
of the procedure PI, as if there vrore a ‘GOTO 11’ statement 
in the procedure P2. 



It xs quite clear from the previous czomple that 
points for the control br'^nsfer can only be provided after 
knowing all the possible patns of activation of clocks • 

I.tat IS why coding of C H and GrOIO (partially) is done in 
PASS II. 

The lOAIiI tabic made in PASS I Jcceps the information 
of all the possible accivations of blocks ^ \aiich arc used 
by Intermediate processor for providing points for the 
control transfer, 

Ihe Intermediate processor picks out tii? Celled 
procedure (say P) of Iomosz level (say L) from IC-iiHi Sable, 
If the procedure P is called by sovs^ral blocks | oi.en cn^ 
topmost among them is taken, let ic be ICAI.I(Ii) , Tow callixig 
block may be cicher a Procedure block or a HEG-ET blocjL, 

Procedure Block ; She availability of unfound 1 bcls(if 
any) of "Galled Procedure" is checked in the procedure P1 
calling it. If aiQT parTiicular label (H ) (or labels) is 
not found even m the colling procedure (PI ) then it is 
treated as if ’GOSC II* suatement be i-i PI and hence the 
label (II) IS attached Lo the string of unfound Ebols of 
calling procedure (PI) and tic coireoponditi^ changes aro 
dono in G-OSO table. 

BEGIN Block : Firstly, \/itii tnc help of symbol table, 
the path of activation of tnis BEGIN block is traced, 
until a PNOCEDURE is found, Shesc blocks arc kept m 



the block stuck »/ith assumption that the procedure is a 
block of level 1 • 

If the BEGrUT block is ^ust under procedure there 
v/ill be only two bloclcs in the stack. But if the BEG- IF 
is under some other Begin end tnot under some other BEGIN,, 
and thab under... and last one under procedure r’.cn all tho 
BEGIN blocks and the procedure \^ill be in the clock stack. 

After arranging such a hypothetical block stick, 
the availability of each unfound label of”0alled Procedure” 
IS chedkod. 

1 ) If the label is xiot found in aiiy of the block (oven 
in the procedure) of tx*e clock execk, then it is trouucd 
just like tae procedure cose and uhe label is ot bached to 
bhe string of unfound labels of che procoduro in GOfO bojlc, 

2) If label is found m pr^codurc or anj* BBGIIj block of 
block stack, the follo^ong loforajwtion *s k^pt lii OOlflO'I 
table, which is utilized at tho tirac of cocmg in PASS II: 




1 YC3B 

LIJ 

VB 

D VI 


S3 17 21 35 


VCB - Value of calling BBGIN block 
I - level of calling 3EGET block 
VI - Value of label 

VB - Value of BEGIN block where label is found 
1 - level difference of calling BEGIN block and thr 

BEGIN block where label is found. 

Here ’Value* indue ites th-" s* mud table ad«^xcss. 



After taking ablvc action for each label of the 
called procedure, IOAIIiCL) is nsde zero, 

Ihe above action is taken again vath the now ICAHi 
table and this is done until all locations of XOMiL table 
are made zero. 

How the expanded and new G-OTO table is the final 
GOTO table \/hich mil be used an PASS II for coding. 



CHAPEa III 
.PASS II 


In xhe PASS II, the PASS I output, whxch xs on 
the tape 0, xs scenaed stabement by statement. If the 
fxrst wo id or the stacoment xs cxther of the fxve spccxal 
cnaractcrs (dxscussod below), it shows thr presence of a 
string, for whxch the cor responding coding xs xo be done 
in PASS II. 

Those special characters a*e 

Oc bc'^l Valu e String o f 

57 0C:iD'jXJ 

76 BECBI 

75 CAlI, 

77 GOTO/GO TO 

56 EBD) 

Coding done by tne compiler, for different types of 
strings is discussed below one bj’ one . 

1 ) PROOliDURu String 
E xample : 

PASS I OU TPUT 

$IBIIAP PGH 

PGH TEA .10001 

.70001 SZA ..rDCE2,2 

TSZ .SDBE2,2 


Char acters 

JSi 

\ 

V 

■4+t 



PZE 3 

PZE 5 

PZI3 3 

.10001 pas 

1 00000 I Jg'im 

TSi .^oiiiPir 

where I - Type (0 for suple procedure, 

4 for iunctioual procedure ) • 

S - Block number of procedure block. 

A - Symbol table address of procedure name . 

In this case, the first eight IIA? i.istructions are 
transferred in toto to the tape 4. The fir&i word 
ninth scatement, indicriuos the preEC_.ee of PP0Cl3rul3 s 

The word, imnediacoly after STJecidl chw iCtar, kcop 
the symbol table address of the Pj.lOCIIDIHB ro le (i.c. PGH in 
chis particular case) in its address por-ODon. 

On encountering a PROCBJDUJifi spring in PASS II, 
similar to PASS I, the procedure is iit-pc in the Blue* 
tahLe. 

With the help of che Symbol taole adcress (A), Ghe 
number of variables declared in the procedure is oaken 'nd 
it replaces the address portion of the second word of ■cne 
string. Row treating this word as an integer, coding 

CIA sj2f000001®000l7 
IS do3ae and the string is removed . 




II 


And the PASS II output will look as follov^si 

P ASS II Output . 

4^IBMAP PGH 

PGH I3A .10001 

.V0001 SZA ..IDX2,2 

TSZ ,STIBE2,2 

PZD 3 

PZ-. 5 

PZE 3 

.10001 BSS 

CIA =)Zf0000010 0001 7 

ISI .RTON 


2) BEG-IH' String 
Egample : 

^S.S .1 OTJirjroT 

• • • • 

M OLA. 5,1 

ADD 2,1 

SIO 5,1 



IBIiI'O 

TEA .10007 

« • ♦ • 

where A - Symbol table address of 33BG-IjNr, 

The first word of tne aoo-vB example, inc.ic«jOs the prcse-ice 
of BEG-IE string. 



On encoiintcring uhe BDGrl.' scrmc, sinilar to PASS I, 
the BBGIIT block is kept in ihc Block table and che s cring 
IS removed Tho PASS II oucpat m] 1 look like as follo\/BJ 

PASS II Output 



• • 

• « 

M 

CLA 

5,1 


ADD 

2,1 


STO 

5,1 


TILA 

.10007 


3) CAIIi S tring: 

Example of PASS I output string an'^ the expatided GO-'O 
table are shown below. 


PASS I OUTPUI 

m m 

.10002 CIA* 
310* 


O 

o 

oo \ booooal 

L 


1 3 

ol 36 

Hlli 

36 [ 


|~ 0 1 0 0 0> 

!DRA 


2,1 

1,1 

jrryT^^t c o^' -Sj 

lo 0 0 0 V? (3” 7 p 361 

I . I ' I ’ . , J 


P0010 




IS Jc.<c . 
■Jea^ed 
and 

Ciiid 
IS tli3 










iffow with this OAIiL statement, x’cturn points are to 
be provided since labels ’ll’ and 'IT* are unavailaole in the 
procedure . 

Tne f our bh word of che soring sxiows tho number of 
arguments and cnc succeeding four \rords contain bhe informa- 
tion of "chc arguucnxs (refer co Oi JiIi armament charact e risti c 
word in Appendix II). 

Since label 'N' is also not avaiable in 
procedure, so transfer is done to a new label calculated 
as follOY/s: 

,C000(>fC(I0AC.I(20))j_^^+Position of label ‘M* in 
string of Ghc procedure ’FY* (i.e. 1 in chis case). 
The slaoemenc, assigned this ne./ label, will t6rffii''a‘lc che 
procedure ’PY’ and Ti/i 11 oransfar the coiiorol go ihe up')er 
block. The PASS II Output v/ill look as follo./ss 


PASS II Outnut 

• • 

• 

.L0002 

GLA’^ 

2,1 


STO» 

1,1 


TSL 

ZY 


T2I 

♦+6,,3 


PZE 

3,1 


PZE 

=7 


PZE 

7,1 


TEA 

BT 


TEA 

.00007 


TEA 

.pool 0 


• • 


4) GOTO Strinr: . 


Jural " pie 

PUmJT 

• » • * 

TKA Z 
J BSS 

ooooom EoQoiS IUSE 

Z OLA 1,1 


It IS assmaucl this GOa'O axTing is fouid in 

the prooedure ’SY' rj^d the COTOtsble ox previous CuTrUiple 
IS also true foi it. 

The label *T't 3.3 se^^rched ii P iSS II ''loo: 

(a) If T* IS found in cnc same block, uhe fol o i.ig 
coding IS done 

TE/l M 

(b) If 'll’ IS not fouiid, it is picked ouc liom -OTC table 

and 1 os new label is calculated mS ixi cl-o case of the 
CALL stricg (i.c. .00006 for ‘TI’ in procedure ‘Cf’j, 

And che ceding will je: 

IxlA .00006 

(o) If GOTO string has cojui^^ in LuCLJ blocxc am if 
OOLBOT table is as siiown oclow; 


• • 

• p 

• m 1 

• • 


VCT3 _ 1 

1 VB‘2 

» YIM ^ 

* m 

« • 


N 



whore 

VCB3 - Symbol table address of BEGIN' block*B3’ • 
'V'B2 - Symbol Table address of block ’ 32 ’ vv^ere 
label ’II’ IS found. 

TIM - Symbol tabic address of bne label ’K’ . 

I - lovcl of block ’B3’ 

1 - lovol difference of blocks ’B3’ and ’B2’ 

the label ’II’ is found in the -0 QIIBOI table and the 
following coding is done: 

(ERA .ECOOn 

whore ’n’ is the location of the label ’ll’ in bhe 
table . 

5) END String : 

Emample : 

PASS I ouroua? 


CLA 

3,1 

SIO 

5,1 

joOOOO; 

I 

GIA 


TSI 

.ETRTN 


• • 


JQHJCT 


BIO) string may como either in BEGIN block or in 
block. 



i) EHD Corresponding to IBGIII: Prom the block stack, the 
^mbol table address of (VCB) is soix’cned* In 

COIECT area the presence of VCB as block, which wanes 
label, IS cnecked. 

a) If it IS there, ohe coding for all the desired 
labels are done with -Glie _.^p of their VB, Z and VIM 
(see figure in che previous page). lo encompass the set 
Ox suatements, coding for Lie labels needed, a transfer 
mstrucxion is given in the very beginning as; 

TEA .EOOOm 

and at the ond follov/ing insbrucLxon is geiUx-jcd; 

.EOOQm BSS 

where ^m* s H-l , E is the OOLBCI tabl^ aiuress Ox 
the BBGIE string. 

The PASS II output will look as follo-'s: 

PASS II Output 



OLA 

3,1 


STO 

5,1 


TPJ. 

.EOOOm 

.EOOOE 

CIS 

ssiblno 


TSIi 

.ETETE 


TE.. 

II 

.EOOQm 

BSS 



CIu« 

=2 


TSB 

•ETETE 


where ^iblno* is intomal block number of the BBGUr block. 



b) If the BJGrlll block is x-Ou found in i.iq GQISCT cable 
GiiGJ. no coding is done. I'ho Iv-fat blxCk is erased fnon the 
clock sback and the string is removed. amply. 

ii; EIID Corresponding to PPOCJDUHji: Prom che bloc*: scaok, 
uhc symbol taolc address of che procedure is scorched. 

a) If the string of unfound lobcls is ettocned to tne 
procedure, the coding for all the unfound labels is done 
sinilar to the BEGB'" case but here GO!ZC table is taken 
help of instead of the C0I3SCT table • To encompass the set of 
instructions, similar oi‘'tc*ients aro gonoraoed hero also. 

It IS assumed th t the Soxoci-nt 'IIID, " ccrrespoiiding to 
the procedure *PY' has cone, chon Llic ?*-SS II oucpi b will 
bo as follovvs 

a 

3.1 

5.1 

.GOOOi 
=:2 

.ETHTU 
FY,4 
*+1 ,4 
’"*,4 

Fy,4 
FI 

=2 




Here tnc c*icOiapassiiag jL.istructj.Ojis have labels dxfrererfc 
iron the c of EiJGIl^ cc.sl . 

(b) If there IS no sjr-ji" of oufo’Jid libels ct-t'achfad 
CO this proccdiirc, only :leci stacl: c.i'cry is ci’c sed and 
no coding is done. 

If the IjM) stauo. int is corresponding to the lost 
procedure of the subpj.'*o^'-ranne., the cf'ntrol iransfers to 
Che EKD of the ctiapilor end the P..SS II output is now 
loaded on IBM 704^ . 


OK 2W. r’’ 


PPT/Jlicji^pc^^l_<^ K TOm rOUTBTJS 

IDhe most beautiful Xofiturc of IIIDPl is Uiiat the 
doclaied identifiers and global identifiers have dynamic 
allocabions, i.e. to s^y, identifiers declared in any 
Dlook occupy the corresponding memory* locabions, only V7hen, 
tliG block IS active. As soon as uhe block ends (oitiier by 
usual EMD statement, or by condiuional or uncondibional 
bronsfer to tho point ^'hich is outside the block, ac tho 
time of execution), tno allocated memory locations needed 
for this block are freed /hich may be used by anochcr block, 
going to be active next. 

Poliowing example il3ustraies how dyxiamic 
allocation functions: 

A. .PROCniDimD OPflOITS (MUST) 

DBCIiAJTS (VA1, VA2, /A3, VM) TITID ,. 

Stmts 

CALL B ,. 

B . .PROCIIDTJBE ,, 

BBCIAEE (VB1, VB2, VB3) PIZBD ,. 

Stmts 

BHD B 

O^.EBGIH 

D2CLARB (V01, VC2, VC3, VO 4 , V05) FIXED ,. 

Stmts 


> * 


BHD A 


In the pievious exam’^le proceciure A cealls procedure B. 
Three variables arc needed in this block (as sum loo- that 
no global identifiers are needed i_ji ’.lock B) • As soon as 
procediire B is invoked duranc execution by the OAUj 
stabement in procedure A, bhree locauions are allocs ued 
for B block and these locaiiors are freed \.nen control 
transfers back in A ’oloci:. PuTuhennore, i(7hcn control 
enters into C block (Begin block 0), five memory locations 
will be allocated to C block, Liiree Oi cliem will bo those 
which were occupied by B block wren lo ■v/as active. 

Thus overlapping of memory is aone . 

In IITPIi this type of facHiry v.i.c. u^’tioiio 

allocation) has been developed \/ibh the ncl? of runt me 

manner of variables (i.o. variable stack) and of cctive 

blocks (i.e, active block stack). 

« 

The programme has been ’"itxen in !L\P, ■’he 
assembly language of ITU! 7044. Hero fc\v n mos and 
pointers used in the progranae of rontime manager are 
described ; 

AOTBIS (i'ctive Block Stack). 

This IS a variable name '/"ich hee»dr. the cctive 

.bloQ^ stack i.e, ACTBIS is uhe stertin^ pout of acoive 

block stack. Each encry in the acbivu bloc >. ac«wk 

occupies only one memory and consists of xhe follo\»ijiig 

information is 20 

IBlirO 1 I SBHIBY 


21 


35 



where IBINO is ehe incemal oloc*: number given xo this 
block bjj' the compiler to idenuif^r ary active clock during 
e:;ecutioja. 

SiliWinr IS tne starting enxry in the variable stack alter 
i'.n.ch daxa area for this block starts in variable stack* 

. ♦’VAR points out tho starting point of tie variable 

stack formed for the purpose of data allocacion. The 
le-ijth of the variable stack d^-pciids upon the user's 
progre nane which is calculated during compilation for tl.e 
\/ors u case * 

STPTKB works as a point-r and points to the st ax ting point 
of current active block in variatile stack. 

ITVARKB (Number of Varoaoles ii Current Block): 

As the name sagoesLs ic gives obe nuiabcr of 
variables (or more accurately nupibor of memoiy Ipcdtions) 
needed by the current active clock xor data allooauion* 

To understand the funcoion of tne runuime manager 
and above mentioned nanes, lex us consider one u.ollo\/ing 
example ; 

A.wPHOClSDTIEG OPTIOIB (::AIN) 

UBCLABS (VA1,VA2,VA5,¥A4,^''A5(10)) VUID 

Stmts 

GAEL C ,, 

OAKCi B , . 



B.,I*ROCEDI]IED 

Dx,CLAiiB (VB1 ,V32,VB3,VL4,VT35)BI{D(36) 

Stmts 

VA1 =VA5 (2 )+VA5 (3 )+VA3+VM , . 

CALiI 0 

BEG1 . .BDGnr , . 

D3CIiASI} B1 (5,6,7) riZBD 

Stmts 

CADI G 

Biro A 

0.. PROCEDURE 

DUOIARS (G1) riXED 

DUCIARE (02,03,04,05) BIT (50) 

Stmts 
BIID 0 , . 

Iniuial instruct iojos of any block (x.e. prologue of any 
block) are those vfhich load txie block ixi actiT-e ^locjs: 
stack* 


Referring to the present example, tnc prolOt^ue of 
the block A will load the block A in active block si:ack, 
Indexi and index2 act as pointers \.nich give information 
about starting point of data area in variable stack for 
current active block and previous active block. 

As the control enters into A block, the stacks 
(active block stack and variable stack) ’ ill loox like 



as follows 


ACTBIB 




HACfBL 

1 


..VAIt+14 


..7i 


Data area for VA1 


for YA2 


for YA3 


for YA4 


for YA5(1 ) ’ 


* 

I 

for YA5(10)^ 


SIPITXB 

T 

Data area 
for A blocl 


Here 1 in ttie decrement portion of ACTEDS shows the intornal 
block number of A while address portion of AOTELS is filled 
up by ..YAa, an entry in the variable stock just one 
location before the starting point (.,YAE+1 in this case) 
of the data area for block A. 


Pointers will have the values as follows: 

17ACTBL s! 1 showing tliat number of accive blocks is one. 
NYABKB 5 s 14 showing that number of memory locations 
needed by this block is 14. 

index* 1*5s complement of ..YAR so that if anjr identifier 
IS to be referred to,ib will be referred to as: 
irpn,1 

A 

where irpn is internal relative position number, 
irpn for YA1 ss 1 

* 

irpn for YA4 = 4 

k * 

irpn for YA5(7)=s11 and so on. 


index*2*s; 0, 



rfhen procedure block 0 is accivated by CiU2j 
s’caGement in block A, block 0 is also loaded and entries 
ox wo stacks are: 


AOCBIS 

■"1 


..VAR 

AOTBlS+t 

4 


..VAR 




^4 . 

NACTBI 



..VAS 


..VA^+H J 

Datawares 
Block A 

U- , - - » . 

for 1 
i 

..VAR+15 

r - -r- ^ . T 

1 • 

1 


• Data area 

1 Block 0 

for i 
1 

..VAR+19 

' 1 

1 ^ 

1 


wneio 4 is the internal block number for block C. 

Ni^CTBL = 2 MABIB = 5 

index 1 = complement of (,,Vx-3+'14) 
index 2 = complement o± (..V.lR) 

^en C block ends, this block lo caj-used from cne - crive 
block stack and the poincers ere moved beck accordih£,ly, 
irov7 MAO'IBIi «1 HTAEIKB = 14 

index 1 = complemenx of ..VAR 
index 2 s 0 


ft 

L .VAR 

4- 


1 

{ 

1 


..VAS 


..VAE+14 



Data area for 
Block A 


i 




S imil arly when B blocl: is active Led, different pointers 
will have the folloT.ing v-lnes: 

FACTBI = 2 i'Tx-aKB = 9 

index '1* = complement Ox (•.’VAB+H) 
index *2‘ = conplemom; of (,.VAR) 

In this case KVAEEB s 9> five locations for local 
identifiers and four for global identifiers (chree for 
VA1 ,'VA3 and VA4 and one for arraj" name ■VA5 ) • 


It can be marked ncre that is an array name 
declared in A block and is needed by 3 block as global 
identifiers. Also in ^ '^lock, cen locauions cie reserved 
(VA5(10)) for its alloc: cion in v ^rivible stack while only 
one location is requixcd in 3 block for the array name 
also if this array is £,l 0 ‘jal. 


In this single locaoion for airay name, startijig 
point of array mane in a clock is stored, so that acoual 
address of ary element of tne arxay can be evsluaoed. 


iwo stacks will look liko: 


. .VAR I 


AOCBIS 

ACiElIiSfl 


If 


area for VA1 




Data area fori 
block A 


SIPIKB 



Ic can be noticed thac ,.VAE+20 conj&ins tne on try point 
Ox die identifier VAI i.e. (..YATt+l). Hence if VA1 is 
referred in bloci B, it \/ill be rtfcirod xo as 
QP-OOODB^ irpn,1 

here ' irpn’ for 7A1 in block 3 is 6. 

Hence ooviously, oh*' indirect address of (6,1) 
all refer to the address .,TAR+1 rhich, in turn, is 
nothing but the encry for 7A1 . Siaiilar is the case \ath 
the other global identifiors. 

Again when control sneers into be^in block the 
stacks vail be 


AJTBLS 

ACTBISh- 

ACmS+2| 


HACTBIi 


I 


1 

. .VAE 

2 

. .VAE+1 4 

3 

. .YAE+23 

• • 

• « 


Yd 

. 1 


i * 

Daca acea 

F 

\ 

YAE+14 ' 

1 for blool A 

> t 

i 

.VAE+1 1 

1 

t X)d. ircl 3 xC«3l 

1 for block B 


,YArt+23 1 


1 

1 

Baud aiea 

♦ 


for 

I 

.VAE+243, 

block EiSG1 

! jL 



index • 1 * = complement of ( . .VAE+23 ) 

— 

index * 2 ’ = complement of ( . .VAE+1 4 ) , 

IThen OAUj 0 in begin block IGGI is exeeuxed, control is 
cransferred into 0 block and all the blocks rre act-.vo 
now. 5Dhe different pointers will have xhe •wriues* 
MOTBIi = 4 IsTYATiTl} = 210 

STPTEB = .,VAH+243 

index *1‘ =s coiig)lement of ( . .Vi'E+243) 
index *2’ = complement of (..V*-E+23) 



and the two stacks viH look like as follows 


ACTBIiS '■ 



777m 

aOSBIS+1 

2 


..VAR+H 

ACTBIS+a 

3 


. .VAR+23 

A0!DBIiS+5 

4 » 

,.VAH+243 

i 

1 


ITAOm 


•VAR : 


Y.m+14 

Bata area 
for 

Block A 

7AR+15 

Bata aroa 
for 

Block B 

.7AI*+23 


,VAR+24 ' 

Bata area 
lor 

,7AH+243' 

Block BEG1 

,’?‘AR+244i 

Bata area 
for 

.7AR+248 

Block 0 




Hpirsjnn. ?ou]?i!i3S 


This IS one of mai-i runtime routines which does 

the followings, depend] ns upon the typo of calling: 

(1) It loads the block 

(2) It erases the entry of curtent block from eccive 
block stack. 

(3) It erases the entry of ilocko u^bo the block mentioned 
by calling sequence. 

(4) It loads bbe ciu?rent block as well as checks the 
mode and typo of arguments. 

(5) It seiids back the starting entry point of a block in 
Accumulator if cor fc bchins from active block stack. 


Oall ing Sequence of the Eouuine: 

Eoutnie may be called in one ol tne folio ang ways; 

( 1 ) CM a= Eunber 

TSL .ETRTir 

\'hoi'*e ITumber = lECiNO (internal block nunb''r)’‘-2* ^18 

+ no. of locabions needed ix the block 
i.e* contents of AO arc’ 


[ I IK Eil^O 


0 


no. of loc. 


The decrement portion of AC denotes the internal block 
number and tne address portion contains che number of 
Vci.iablos (locations) needed for this block. 


ruxiotion. !Ija this case loads che current hlock in 


accive block stack and sobs tne point-'rs FACIED, FVAHKB, 

SIPTKB as well as indez 1 and ^-ndcz 2 . It: also allocates 
memory locations needed for this blocL.. 

(2) CLA = Fumbor 
ISl .RTRIF 

v7here number is such thac -chc coiitem; of 10 is as follows: 

— . p . — _ 

I IBIiFO 1 4 I Fo . of loc. I 

Chc only change in this ty.'c of c''llins ’ath respect to 
the first type or calliin is cht "c = 4 i.e. 13^20 

IS 4* 

Punction: In this case ic is uhou aTii* c. tnis routine has 
been called from the beginninj of cither a ptiramecric 
procedure block or from a funccional block. In such a case 
it loads the current active blocjc as well as compares for 
iho proper mode and cypo be uween actual and formal 
parameters. 

(3) CLl 

m .RTRTF 

Function : In this case it is understood cliab the end of 
bhe current block has come (either due to Uie actual ERF 
scafcement or due to condicional or unconditionrl transfer)* 
Hence the routine erases the enti'ios for the current block from 



block stack and the pointer ir. Lie variable sTiack is moved 
back to bile block ■vaiic''4. is now active. 


(4) CIS a=iTumber 

TSL .■^uTriTlT 

where the 'Number* is such thac bhe C(AC) looks likes 


Block No . 


S 


Only the decrement portion ^ives the informe cion to the 
routine. Address portion of one Aocuiauidtor is of no 
importance hence it ezn be us^d for other purposes. 


Bunotions JEhe routine erases the eibry fron Tne active 
block stack upto the point v'nere the Mock monoiuncd in 
decrement portion of AO is found i-i the active block stack. 


(5) CIA 0=3 

liD-ft siNumber 
TSl .ETRTN 

Here 'Number' denoces the block nuniber, the sxa''tin5 
entry point of v/hich(in active block scack) is needed-. 

Function s The routine compares the block number sent in 
the Mft register wibh the blocks filled in active clock 
stack. If lb mabches, the corresponding starting entry 
point IS laken from die active block stack and put in the 
accumulabor. This is useful in puttixig the entries in the 
variable stack for the global identifiers. 




JliTCH !Phis IS a smalT segmexit of .PTETN routine and has 


an entry point in this routine. Before entering into this 
segment, it is uoder&Good t_at the control hag been trans- 
ferred from functional procedure. Ic checks for the valid 
reference of the function and sends xhe node of she function 
procedure in runtime ceiiporary scor-ige. 

..MDOH This routine lo called oy the following ins bructions: 

TSX , .MD0E,4 

PZE m, , bsp 

where *m* - denotes tre node of Oxie operand 

*iiSp* - i.e. Lejtjporary storage poiiixer mich 

deiiocos xhe locaLion where tx*e 'jode of 
second oijorand is filled. 

Punotion i This routine compaies jne t /o nodes nd ix t».*ey 
match, control is returned to the crlling poimc oti’ci’'ise 
error message is given. Such vype of node checking occui’s 
in case the expression is of the form . 

^dent if ie:$> <^per ato^ "^unc tio]^ 
or function operator identifier 

..MDOH routine can also be called by "che fol"’ owing 
instructions: 

TSZ ..irDCE,4 
M2E tsp1,,tsp2 

where * bsp^ - temporary suorige pome. 



1*1 this case modes are considered to be filled in the 
temporary storages mentioned in the decrement and address 
portion of the next locdxion from tne calling point (i.e. 
the location where t*ie inscruction is tsp1,,tsp2). 
Such type of mode checking arises v*ien the expression is 
of lihc form: 

^^unc bioi^ ''ooei\ to’c^ 


funcxion> 


RUlfTIl-IB ROUT USES 


for subsoruted variables (Array names) 

Rootiness .STI3E1 , .S1IBR2, ,SnHR3 

Whenever an identifier, say IIAHTB, is declared as 
an array name, the dcclaraxive information (i.e. internal 
relative posiuion numbar 'irpn' oS uhe first: element of the 
array and blie upper limiu of che subscrip b(s)) is scored as 
a part of the object code vz-’-'ch vill be referied to as .Vn, 
\/nore *n' is tiic intoi^nal lu-iber given to bhe array name. 

Storing of declarative l^forL'•at■’ on ras the following 
distinct uses by the object programtue* 

(a) Wherever ‘NAIIE’ is used (in arithmetic statements, 
I/O stabemenbs, etc.) lo checks Cxiat ohe actual subscripts 
lie withir the bounds sDccified. 

(b) It calculates tae absolute core address of the 
array element specified by 'che given subscripts. 

Since .Vn is noi; a part of che executable object 
code at the point wheie ic is gonerated, a transfer ins- 
cruotion is placed immediately cefore it co ensure that 
it IS not executed ac object time. 

Ihe object code generated for txie array _iame ’TAEIE* 
depends on the number of subscripts in uhe airay and is as 
follows* 



TSX .SUBPm,2 

PZn irpii 

PZS ? 

PZE Q o-ily for two dijjiensions 

rZE S Oiily lor three dimensions 

-SUBRm IS one of the xollo /i/ig roucines depending upon 
the number of suLscrii-cs. 

i) ♦SUBE1 for siii^e subscripted. 

11 ) .SUBH2 for double suoscripced. 

Ill) ,SUBE3 for triple subscripted. 

’irpn’ IS the internal rolacive poLiuion nuiibcr of the 
fip-st element of bhe array. 

During compilation, ^nenever 'ITAISD’ appears with 
subscripts, o.g. M1!EB(I,J,K), the followiog coding is 
generated: 

TSX Tn,4 

?ZE I 

PZE J 

PZJ X 

PZT3 PADEBS 

where >DADEBS’ is Ihe desired address where the upsolute 
address of the array element is to be put « 

If the subscripted aame is referred to as the 
global identifier, the following coding is generated: 



TS2 

PZ3 I 

PZE J 

PZS K 

SIZE DAPHIjS , , irpn 

where ‘irpn’ denotes the internal relative position number 
of Che array name in this block. 

In all the cases index ‘2’ contains the complement 
of address of (.Vn+1) whilo indcx’4' contains the comple- 
menb of the . ddross of culliiig poinu. 

TJhe cilculation of the absolute addiess of an 
element of the array name is based on one algorithm: 

address of = address of EiCiC(1^1,1) 

+ (1-1) + (J-1)*P + (:C-1)*P»^Q 


Example : 

A. .PRCXDBDUEB OPTIOflS (IIAIR) 

PBCIAEB (M,in(5),l»r2(2,5),]S^(4,5,6))PIZSD 

T& m 2 f. 

FI (2) = lsr2(M,3) + 


Coding of the above statements will be as follows: 

$IBMAP A 

TEA .10001 

,V0001 SXA ..ID£2,2 



TSjL .Sir>H1,2 
P2B 2 
PZB 5 

.VD002 3Zk ..IDX2,2 
(Da^ .snBP2,2 
PZB 7 
PZ’’ 2 
PZB 3 

.V0003 SZA ..IDX2,2 
m .STrBB3,2 
PZB 13 
PZB * 4 
PZB 5 
PZB 6 
.10001 BSS 

CIA ^ 
i»T0 1 , 1 
!DSZ .70001 ,4 
PZB =s2 , ,mocle 
PZB .P.+O 

X-3Z .70002,4 

PZB 1,1, mode M 

PZB =3,, mode 

PZB .I.+1 contains addreLo of 112 (I!, 3) 


TSZ .70003,4 
PZB 1 ,1 ,inode 
PZB =5,, node 


1 ,1 ,node 


PZE 

PZE ,(r,+2 contains address of 

CLA- .T.+1 
AD]> .ir.+2 
SOJO^ .I.+1 

•«« ••• 

Instead of passing the subscripts oy the instruction, 

PZE Arg, if it IS passed by the lost ruction, OKB Arg, 
then i»he routines .SUDR1 , .S'DBR2 end *SUBH3 only check 
If tbo subscrip us a-e '.athin bounds. In chis case they 
do not cnlculato the ec’dross of ixxo el mcnt oC ■*'hc array. 

. DORCT This IS a runbime routine used for haiidling 
the modifications in coxitrol variables in a DO jnoup 
diiring execution. Calling setiuence of .DCRTIT is .»s 
follows . 


TSZ 

J)0*iTR,4 

CM 

c.v 

coiitrol vaciable 

STO 

C .V 


PZE 

a 

upper or lower bound of c.v 

PZE 

k 

increucnt or docremeiit m c.v 
at each sbep. 


.5UBPR This IS a runtime routine, which cr-nsfers the 
the values of array elciients from actual uo formal para- 
meter if both the p areometers a-e array name and all 
elements are to be transferred. This routine is Lsed for 
parametric procedure and function proceduie. 



.SBUST This IS a runxiae routine, Munich uranslcrs 
V( lups xrom formal paramac^r co actual paramet-r, if 
hot the parameters ax'c array name and all elements of 
nich are to he cransf er^’od . This routine is called only 
./xien a parametric procedure enas. 

.liTNBZ This is a ran>/i.Tie roucine, wnicn, Wxien called, 
scores txiC values ox indes registers. Tnio is used only 
for I/O statements. 

.^JISUT This IS a routine (runtime) '*hich, \hen called, 
rostoxes the vduos of index lujistcrs. This is used only 
for I/O stabemcncs. 

Helatio nal Ope rat or Routi ne: 

There are six enury points ir chis routine* 

(1) I?O.Ba. (2) EO.T-E, (3) EO.LT. (4) EO.LB 
(5) EO.GT. (6) EO.GE. 

Tnese six encries are for ’elational opciators .BQ., .ITB., 
.IT., .m., .GT. and .C3. respectively. .El. aiid .fG. 
aro equivalent to .GE . end .IB. resi ec uivcly . 

At each enxry point, it oiiccks if the conaition is 
true or not. In case lu is true, ^ filled by 

777777777777 with sign bib as plus; if chc condiuicn is 
false, C(AC) =5 0, 



GOITOLUSIOir 


Lxke roSIiLfaH’ coripiler, IICHL coapilcr is also an 
oui-core compiler, excepTi the Bamjimo routines, which are 
ciicre, in tho coio, at tie line of execution. She Huntime 
routines approximately cate 900 memory locations. Besides 
this, tho compiler takes tho help of some BOEfilfall routines 
(namely I/O routines, 3ZP1 ,,,) which also will occupy some 
memory space but the memory, occupied by these routines are 
programme dependent. Only those routixies will bo in the 
core which are required by tho programne, otherwise they 
will remain outside. 

Ihe compiler output u in Mi'JP (Assembly lansuage of 
rOM 7044), hence 'Che asccmblcr and its IOCS oocup;'- round 
about 6000 memory locations. So, out of total 52768 memory 
locations, approximately 25000 memory locations ere free 
for the ob 3 ect programme. 

Since tho oouipiler is an out-core 'cypo, its symeol 
table IS so designed that it causes the compiler oo cake 
the whole of memory. If some addition is to 00 done m 
tho compiler, the size of bhe symbol table (\/hich is at 
present 4000) can always be reduced with a sligiiu change 
in the system. 

All the tnree sections, Lexical, Pass I & Pass II, 
and Buntimo routines, have been tested separately and 
successfully. Till tho end, the pro,'n:‘anLc , handling CALL & 
GrOTO statements, in Pass II, could not be fully tested, 
hence all the three sections of the coirpilor were not 
combirted. 



AFFSITDII I 


Herp an I'X'^rnlo ‘•d taicezi tc illusM ‘ ^v. the PxiSS I 
output oi the souice stcnoaoiit (IITPL), 

*PI/1 

PI. pxtooBiiuiiE o-Qmjs (iii.nr) 

DjEOIuJiB (j.,h,3.P,E,I) IIZSD 
D330IuJiS P(5,6,7) PIXSD 

M. »A ta; A+B j . 

a:.jj rD(o.G(D.2) ihlit rB‘(-4..iis.o)i‘xia!r ^ 

iSLrfjJ ir(a..L!I!.C) Pllir c=5 
JBUID AsC , . 

OiJjIt P2(A) 

PO Ia1 , D Tfi/HUE ii=s3, 4 TO 7 Fi -3 , . 
A*A*(B+C/D**5)“8 

EHD/* OHIS SHCFS EBB EKD OP DO GHOTJP */ , . 

DBOD.JKB (A,M,H,P) PUBD ,, 

AasA+B } « 

BED B1 , , 

fiBT BDEP (0,D,E) (P(6)* 2(3)) 

P2- PROCEDDEB (&)/» 5B00ID BDOOi. SEJJlCS V 

DBOD^iiB G BIZED , . 

« « 

GOTO M, . 

BBTDBE 


BED P2 





- 

0.. paa-AJS ?(6),I(1) 


PUO? EDiai(((l( 

1,1,0) DO AsD ro E 

BT I) DO Bss3 

!D0 S) DO C*I a?0 6 

BY 3) (R(G)) 

BSD PI , , 

*DATa 

J • 


Cpdiu^ PI . .PdOODDUEE OPTIOSTS (ixAEf) , , 

DBGUJin (A,3, 

C,D,E,I) EECED 

, DECMaJS P(5,C,7) PIZED 

$IB£IAP 

PI 


PI 

Z3A 

.IC001 

.V0001 

SXA 

..IDZ2,2 

- 

TSZ 

.SDBR3,4 


PZE 

7 


PZE 

5 


PZE 

6 


PZE 

7 

.10001 

BSS 


00000 j:v 

2zmx 

A string \/hich looks like 



r 1 OtVALUSt 

^ — -rrii ^ 


m 

.R!EREir 

11 . *AsssA*4*B 1 • 



M 

CIiA 

1,1 


.sDD 

2,1 


JEO 

1,1 



431 


2Km 3r(w,G!C.2) i’HIi 4 IP(A..E.G) TdW i^O, . 


CIA 

1,1 

S'vB 

2,1 

2SZ 

HO 

2/JE 

•EOOOI 

CIA 

3,1 

SilB 

=2 

•"31 

70.Ga?.,4 

7ZE 

.'30002 

wl'. 

1,1 

3'JB 

3,1 

T8Z 

H0,l>iE.,4 

IZ3 

.30003 

Clxi 

=0 

J’1‘0 

1,1 

i\U 

.P0001 


SXiSSy • 

BIfiB IB {A .11 .8) Ti-ElJ 0«5,, 
IISB AffJS , , 

]31SE 


,E0003 3®A 

.30001 

.30002 


CM 

1,1 

SI3B 

=8 

ISX 

HO .IT. 



44 



TZD 

.D0004 


CIu* 

=5 


STO 

5,1 


THi. 

.BOOOI 

.E0004 BSS 



OIu. 

3,1 


STO 

1,1 


I'iL'i 

.FOOOt 

J30001 

!KL1 

.BOOOI 

m 

•=d 

o 

8 

BSS 



cm I»2(A) , . 

boooot boooo2’ 
booboit i .o'^bool 

y/horo 'JJXaXV ir. 

c’larcciiCi'i ixc ’ ta > , 

DO I B 1 ,D mim A=s3,4 10 7 BY 3 , . 
A=sA-^(B+C/D*^5)-8 ,, 


EMD /* THIS SH07/S 1.12 D-D 

or DO OHuU? 

01.1. 


STO 

6,1 

TSD 

J)0001 

CIA 

4,1 

STO 

6,1 

OLA 

1,1 

SOB 

=3 

TS2 

EO^.,4 

TZE 

v+2 



0?^L 

.E0001 


Glut 

«4 


STO 

6,1 


CIiA 

=7 


diO 

P.0001+3 


CIA 

2,1 


3ID0 

P.0001+4 

.wood 

SSL 

.P0001 

D.OOOl 

T3Z 

.POPTI\r,4 


CM 

6,1 


STO 

6,1 


PZD 

0 


PZE 

0 


TZE 

E.0001 


Tlli, 

.fOOOl 

.D0001 

Hih. 



* Coding of nest siiatement starts hcj.'e i.e* 
Assignment statement in this case* 


PZB 

,0 

DVP 

«r »+o 

LLS 

35 

ABD 

2,1 

ms 

^5 

MFi 

‘,1 

LLS 

35 

SDB 


SIO 

1,1 

■ Oodang ojC EOT) 

statoment 

TRk 

.D0001 

E.0001 LSS 



B1.. BEGIN 

KEOL.VOS (xi,M,N,P) PUCD , . 

AasA^fB f « 

BIED B1 , . 

00000 TliTTT A StZTl^ Whicn loois loJvO 

i r iSgTo 
3 17 21 ^.5 


B1 

TTIA 

.10002 

.10002 

BSS 



SSL 

B.0002 


OLA 

i,1 


ADD* 

5,1 

00000 5 

SIO 

1,1 



GET EDIT(0, 


uT . 


TSL 

.PTBlTi^r 


.B0002 

3 ,000c 1' 


V.L.. 

*0000002000 C05 



CliA 

— % 


=1 

iSSi 

.jEffi* r ‘T 

m) 

*2 


5,1 


R,orc: 

,BC002 'SG 


(r(c),x( 

N N 

/ , » 

'x’GI 


'I'dX 

T3HI0.,4 

■L '0 

"'ILO!: 

BOS 

nS 

i'SL 

. <o - L' . 

TSL 

miiiio. 

S-jj. . 

;.i 

TSI, 

IDJIIO 

STO 

4,1 . 

a?sii 

Hkiio. 

SIO 

5,1 

x'.3X 

Rmo,,4 

IHA 

niB 

nS a?GX 

IQP.T'J . ,21 


6 



liE 

p^j..rruOO 

DB-!I -.0 C 'uXD ,. 


•J}t 

LSS 


KHEI. 


wnore ’riE’ jls 
a.ri!P» givan by 
coi>piler, <s.£a 


1 * ' 
J u 


.P0C03 


COIO M , 


P2 - 


K'J 

*^\ ,4 

a V. 

.10003 

« lOuO^ i '»SS 


00 

sbrxDt, jJ-ixl' 
e .L?i.iex . 

'iSh 

j.rp.jjj] 

'TZI 

-+ 2,,1 

PSU 

1 

Olui. 

I,-!- 

Pi.!r 

1,4 


^^OOGOCOOTY?"'? 

alBl. 

=^0000u0277777 

OILl 

=)ZfO5O00OC0OCO0 

SIW 

*+l 

OlA 

)tV 

dWO 

1,1 

i?SI> 

3.0003 

oooodw dodobi 

WR . 


xnxcrrL?! 

bho 

’ 21 * =11+1 


ntioned 


EfiTDllT 


I • 


BI© P2 


TPui 


00000; 

A. 0003 OIL 
PII 
j; 

OHi 

SIV 

OL.! 

iiJO 


A. 0003 


■>>4 

1,4 

=^000000077777 

=sjZ(00Cu60277/77 

s/OSOOCOOOOOOO 

»+2 


1,1 


01 *'. =2 

x’SI .HDHCIT 
ISA P2 

B.0003 SHA ** 

2*^1 B .0003 

.P0003 BSS 

G..PaM![/iT(3 P(6),Z(1)) 


!P''iA 

nB 

.XT 

i,2 

TSZ 

IOHIO.,4 

POE 

5 

PSX 

IQin[0,,4 

PZB 

1 

TU 

ICBEP. 



I 

POT BDI!I1(((2'(A,B,C) DO AsD PC 

> B BY I) DC B^3 PO E) DO 0=1 TO 6 


BY 3) U(Gr)) 

PSD 

SPHDX. 

PSZ 

SPHIO.,4 

PWO 

PID06. 

PZE 

2S 

PSD 

EI5SBP. 

DDQ 

6,1 

st;i 

3,1 

.S0002 BOS 


DDQ 

»3 

SPQ 

^,1 

CDA 

5,1 

PA.V 

0,4 

SZD 

.80003,4 

.S0004- BSS 


ED<J 

4,1 

SP^i 

1,1 

CDA 

5,1 

PAX 

0,4 

SXD 

.80005,4 

CDA 

6,1 

PAX 

,4 

SXD 

,P0003+2 , 

DD^ 

I LLT. KAI«>IIR 1 

-mu 

>963040,, I CENTIUU. UBRARV | 



92 


AIS 

15 

IiD^4 


VIvA 

=1 S3?Aj,,lt, 

A"rt» 

mU 

',1 

3ue 

..IPX1 

X i' : 


ou 

b,1 

?u 

,4 

JL^ 

• * ^L/l f‘‘ 

Mi 'UU6 ..jJ 


n ' 

■M iMm 

.V00C)1,1 

i <s 

1,1 

« Mnt 

1 

,1 

O''*'. 

’ ,1 

^ .. 

-2n,' 

'.ST. 

.'Miir, 


4l , 

*x\)U03 CJT. 

1,1 

PU 

0,4 

'ISl 

+1 ,4, 

jJZA 

0,4 

SIO 

1,i 

.S0005 m 

*S0006,4,*'* 

.10002 OU 

2,1 

PJOC 

0,4 

PXI 

*+1,4,1 


PZA 0,4 



.S0003 

m 

.S0004,4,** 

.T0001 

CIA 

3,1 



0,4 


TZI 

^+1,4,3 


IZl 

0,4 


m 

,80002,4,6 


TSZ 

ETNI0,,4 


TX. 

..10X2,2 

zs 

WJ 

0 


■BUD 00000; 

m. s urxil' 

ONUIff . R 
.'/fJIflv' .,10X2 
SZjSjl" .EORfi 
Ea-** u' .RfpH2ir 
EZfjaii •SSaBR3 
EZESHT .DOKET 
. .VAR 3SS 223 

,1 . BSS 1 

END 10 

0BHDEr 

Rote ; 

.SUBBin - This is tne nintiiir r-^utino for ’m' subscripb od 
variable. It checks whctlrr tlic subsciipbs oxcucds iis 
uppoi’ limit or not, II j-j^ one oi the ’m’ sujsciipts 
exceeds its up’ier limit, xb c , lv ^3 e-ror in cxocuci''.! t^m 



•HOIilH' - Ihio IS Tile relaoional operator runtime rout in e 
^/■liich sends zero in AC if The condition is false othexi^jise 
It puts 777777777777 in AC. 


.■'IfjMDM' - Ihis routine aocs the follu^ ing: 

i) if G(AC) IS greater than 3j then it assumes that 
CO. it on bs of Accumulator is in the following way: 


Block Ue. 


3?3T>e 


ITc.of Tariahles 
needed 


iDype =s 1 - then it loads the current Llcck in the 
a'' ivo block scaek (ACTBLS) and moves 

tic ) inTor (Indexl) corxespondi'^^ly- 

a 4 * 1+ t >uiios th- T cura nT block is a 

pe'’anctrx: pruo.duro block -r functional 
prcceditre block. Ib chock hJ u* c nodes Ox 
the '^rgu’”!, .ts aiJ loads cLe carxent block. 

II ) If tne 0(iC;=3 - it awjumos that blocl no. nas 
been sent in MQ. Iz then takes out Tho starting pointer 
in Che variable stack (..VAB) for liiis block and pucs it 
in aO and rotums to bho calling point. 

III) If the 0 (aC) ss 2 - it erases the currrnt 
block entry from aCTBIiS (AcTive Block Stack) . 

.BORQJN »- Ihis routine chocks wheb.i<>r txio control variable 
has reached its limit value or not. If not it sends’ in 
AC other\<ise puts zero in AO and rctorxis. 


. .IIg2 - This saves the content of indoz2. 


ii 


lOAIiL !Dab3 3 : 

In PASS I, when ajqjr procedur. xs called iron aoy 
block; livel and tbe aynool te tie adaresj of uhe "Called 
Procedure" '»-''d that of ’ Cxlling Block’ ic cep: a_ r pen 
< j wordo of ICAHi uaMe as «hown hi Icv/: 


3 17 21 35 

— — , — , , — ,1 1 — 


0 

VCIP 

1 

. 

VOIB 

ICP 


./here 

I - level of "0 illcd prreodure". 

1 - level of "Calli ’*c. block* . 

VCLP - Symbol toblo address uf ' Called prcccdaro*' . 

VCIB - Sjnnbol ^"^16 address ox "Callnig ba-ock’*, 

ICP ~ Iiabcl nane ''x * Called procedure*’ . 

It IS not always possible to find the ’‘Onllod prccc- 
dure" in symbol lablo, in thac case 0 (first .ozd)g_-j,y is 
filled with zero* Whdi a PB0GSDI3BB sxa cement is enocanxor d 
in PASS I, it IS cneckod kdietner the none of tl o ne'. pr-v.e- 
dure appears ary where in the lOAUi ti-ble unde£i_.cd* If 
yes then I and VCIP is filled at that tixi’o. 

Before filling information in cnc lOnluu taoloi 
following things are kept in mind& 
i) Repetition IS avoided. 

11 ) (a) If "called procedure" is already in symbol table 



the following cccdation is uo be satisfied: 

1-1 = 0 or 1 

(b) If "called procedure' has not come atall hex ore 
the appearance of CfH stauemenb, the validity of above 
condition is chocked \/iisn PilOGlDUBE statenent \/ith the 
label of 'Called procedure" appears* 

One hundred locations are reserved for ICilL table 
and the variable "ITCXJiH" is used as pointer of lOjML j 
table* 

G /JJ. Argument Characteristic Word 

mI IBPJr III BIT \ 

l_jt 4 

3 17 21 35 

where lEPN » Internal position nuuibcr of tne Vcxriuble 

or temporary (ffhen tlu, argmaem; is ei^resaicn) . 

BIT ss Number of bics required m xhe case of bit 
string and character srering* onhciwise 0. 

T s; 0 simple variable 
s 1 Sin^e subscripted 
s 2 Double subscripted 
?s 3 Triple subscripted 
s 4 Temporary (in case of expression) 

= 5 Constent 

ss 6 Itmctionol crgiLiC"t 

when T=5 'IRPN* points the nui'ber of words folio\*’ing 
the cnaract eristic word v/hich score the Cv^nsLont. 



M =s 0 label variable 


= i Simple and subscripted variable 

= 2 Bit string variable 

as 3 Character string variable 

as 5 External fixed variable 

as 6 jSxtcrnal bit variable 

sa 7 External character variable 

GOTO Tabl e 

GOTO table is is the table of unfound labels 
procedures. *11 unTound labels of any partloul’T? procedure 
are kept as an elenex'ii of the srringy i.hose HE^ER keeps 
the name of the procedure and infornacion about the next 
link of -Che string. 




where HPHOC - Table adCress ol thv firoC olcucji'c of cne 


surjjig, hich st'rts 3 U 5 t< oTter cnis string 
section IS over. 

HLINK - Toblo sddress of the HSAK3R ox tiic next link 
of the very PlOCfSDUHB string. 

SA - Symbol trble address of the laoel. 

L.S.<J - Le.v«t SajjUjLnet. 


Before storing the Uxifound label ''nd ils characteri- 
stics, it IS alvroys check-d \/hethoJ it is clreody an element 
of tho siring of uiCound labels of tnc prococlure . 

If EHD statement corresponding to aiy p. ^codur'- is 
encountered and if rhis procedure is *.aving i si/x'i-*^ jZ 
unfound labels, then it is permancnlly closed it- sucring 
1 and procedure's label in tne last two con&ocuGivr Ico-tions 
of the string of the GOTO table end ru-ming px'ccedaro is 
rubbed off from IGHLK table. 

If any procedure starts before permanent enu of the 
last running procedure, then the GOTO t«blc SGrin^ cf ohe 
previous procedure is temporory closed \irith 0 '^nd 0 in next 
two free locations rnd then for new stri*'g is kept 

thereafter. 

As shown in example above: 

KPE001 ss Table address of PR0C2 i.o. n+2. 

HIiBIKI s Address of next link of PaIOCI i.e. ’•1+2 
IIPR0C2 ss Table address of next procedure ( i. o . cf 
PE0C1 ) 1,0. m+2. 


ITLIME s 0 



IGBM lable ; 


ILis IS the procfcdurs oloofc table used for randlirig 
chc QCXDO tdole. Each time PROCEDURE stacemaiit is eucouzi'cered,, 
it IS entered in bhe IGrBLK vable. Each entay IGrELK requrcs 
\;ords of IBM 7044 v^icb cojsisus the fol3o/>ing: 

Procedure name 

( 

whore 'SPIGO* is the starting pointer in the GOTO tablo 

I 

wherefrom any external label needed for this procedure ' 

bloch IS put. The first entry in the GOTO table for any ' 

paxtcodure block is tho procedure name itself and the I 

string of un found labels, needed by that particular 

procedure, are put thereafter. If there is no global 

* 

label needed by this procedure clock, SPTGO is set to 
zero. 

'MPB‘ IS the pointer for .landling IGBIiH taole . 

^Aien an EBD statement is encountered the *IIP3’ is moved 
up. 


(TEH! S'lmOL 


Durinfl, the Pass 1 of the compilation of a source 
programme, Symbol bable entries are filled. A Symbol table 
entry cons is os of four '•onsccuLive words packed with inf or- 
loauion concerning one of tnc folio’ fing en cities \diich occur 
1*1 uhe program ' jc segment (Exierjal Procedure) uemg compiled; 

( 1 ) C’riablo xiume 

(i) No-i subocripuod 

(ii) Single suoscx'ip-CQd 
(ill) Double subscripted 
(iv) Prip le jubscriptod 

(2) Procedure name 

(3) Dauel name 

Sr/nb ol Table E n try for 

(a) Variable names location 



nl as pointer to next item vita olic sa^io hash add". ess 
if there IS any. Else nl sb 0. 



lEYPE = 0 Tor non subscripted Variu iLes 

= 1 for single subscrip :cd vans ales . 
ss 2 for double subscripted VariaOLcs. 

Bs 3 for triple subscripted variables. 

SI 4 for Procedure name. 

= 5 for label name. 

BV3: This is chc Symbol table address of che block under 

which this name (variable, nrocedure or label) has come. 
EVBsiO for the External Procedure name. 

MC3DE St 1 for attribute ■nmn). 

SI 2 "or atbri3Ui.e 'OIT. 

SI 3 for abuributo CaAHACl’upL. 

irpn s Internal relative posicion nUiincr of cne varoaale 
in iihe block under w ich tn_3 vaxciblc name hso 
been declared. 

VAEKTOsi Internal scciuence numoej of tic subscripted •Vc^iable. 

ss 0 for non suoscripbed variable. 

EW ss Eumber of woxds needed by the veriaoLe. 

P 51 Upper limit of ohc first subscript. 

SI 0 for non subscripted variable. 

Q IB Upper limit of the second subscript. 

IS 0 for single and non subscripted variable. 

EC SI Eumber of oharocters in the variable name itself, 
e.g. if the variable is 'A.UD* then f0si3. 



(b) Procodure namoj 


HOOn! 


M 

mm 

UP 


r' ?i 



s= 1 for simplo p^’ocedure without any foriial parameter, 
s: 2 for parrina one procedure. 

SB 3 for runciioxiHl procedure vit!, .-'Ll. ibuf-- unfl), • 

=s 4 for fUiictiojic*! prociduT'' '.loh attribute BIl . 

= 5 foi CuacciOiiPl pioccd-ro w^th at^ritooc TsrZARAO i3S, 

= Humbor of biGs needed for * 3If or CE/JEACTOE attribute 
of Built in fuaction or Home made lunetaon. 
ss 0 oxhcrv/isc . 
s Level of the block. 

«! No, of formal parameters in uhr procedure if ary. 


=5 0 otherwise 



(c) Labol name: 


Label name iicludcs 3)0 nv.nc end namo also. 



1I0D3 s 0 if this label 1 j under Proucduic block. 

=s 1 if it IS ondcr Bci:,in ulocjc. 
s= 2 if it IS under DO block. 

M =s level scqaencG nujiber, 

InUMJ = Internal BO number if clus Icbel ic uneer 10 block. 



Ja£BB3S!DIZ III 


Here an example is taken co illustrsue the coding 
of the source statement (IITPI), 

''PI/1 

PI . .P200EDIJRB OPTIOITS (Mni) , . 

HECZiAHIj (A}3yC jI iB ) X) PIQID f ■ 

DBCLAilB PCs, 6, 7) PUBD 
II..AsA.+B f, 

« 

I».IP(AJSQJB) IHBN IE‘(C.&!r.2) IHEBT IP(A JSIB,C)!DHEN AsO, . 
BISB 

BISB IP(A,L!D.8) IHM 0=5 
BLSE iUG 
OAm P2(A) , , 

DO 1=1 , I WHIIB A=3, 4 '^O 7 3Y B , . 

A=A*(B+C/D»*5)-8 

BHD/* (THIS SHOWS IHB BITD OP DO &R0TIP */ , . 

GET EDIT (C,D,E) (P (6), Z(3)) 

B1 * .BEGIN , . 

DBCIARB (A,M,N,P) PUDD 
A = A+B , • 

END B1 , , 

P2 , .PROCEDUEB (G) /* SDOOIH) BLOCK SIAuTS */ ,* 

DECLAHE G PIXBD , . 

GOTO M, . 
iJliTGBN 
BHD P2 , . 



f 


G.,10iaiAID(3 1(6), Z(1)) 

PIE) edit (((P(A,B,C) do -fiaJD 10 B 
BY I) DO B=3 TO B) DO 0=1 10 6 
BY 3) (E(0)) 

B3D P1 , . 

’^D.’.TA 

Coding (Final) 



PI 


PI 

TRi'. 

.10001 

,70001 

SIA 

..IDZ2,2 


TSZ 

,SUBR3,4 


PZB 

7 


PZB 

5 


PZB 

6 


PZB 

7 

.10001 

BSS 



ODA 

=jZf000001 000330 


TSI 

.ETRTlSr 

M 

Clui 

1,1 


ADD 

2,1 


STO 

1,1 


Ii,.rB'(A^<4J3) THSU IP(0.G!D.2) 

THEU IE(A.nB.C) THEIT As=0,. 

Ii CM 

1,1 

SUB 

2,1 

TSZ 

RO J3Q.,4 

TZE 

.EOOOl 

CM 

3,1 

SUB 

=2 

TSI 

RO.UT.,4 

T?ZE 

.E0002 

CM 

1,1 

SUB 

3,1 

m 

RO.nE.,4 

TZE 

.B0003 

CIA 

=0 

SfO 

1,1 

2HA 

.EOOOl 

ELSE,. 

ELSE IE(AJiI,8) THEN Cs5,, 

ELSE AssC , . 

ELSE 

,E0003 0}EA 

.EOOOl 

JS0002 BSS 

CM. 

1,1 

SUB 


TSX 

RO.LT.^^ 



TZE 

.E0004 

CM 

=5 

sa?o 

3,1 

tDRri. 

.E0001 

.E0004 I33S 


CM 

3,1 

SCO 

1,1 

lEA 

.E0001 

.EOOOl ERA 

.E0001 

.E0001 BSS 


cAm P2(A),. m 

P2 

TXI 

*+3,,1 

PZE 

1 ,3, mode 

TEA 

M 

DO I « 1 ,D mim A=3,4 TO 

7 BY B , . 

A = a^^Cb+o/d-^s)-^ 


EED THIS SHOtfS TLZ E1?D 

01 DO GROUP */ , . 

CM 

=1 

310 

6,1 

ISL 

.D0001 

CM 

4,1 

STO 

6,1 

CIA 

1,1 

SDB 

*3 

TSI 

RO.EQ.,4 

!DZE 

*+2 




TSL 

.P0001 


CIi*i 

=4 


STO 

6,1 


CIxi. 

=7 


SfO 

D.0001 +3 


CLA 

2,1 


d!D0 

D.0001 +4 

,W0001 

rsi 

.D0001 

D.0001 

!PSX 

.DORPH,4 


OIul 

6,1 


SG}0 

6,1 


PZB 

0 


PZl 

0 


TZE 

E.0001 


1RX 

.vfOOOl 

D0001 

m. 

-t'C 


* Coding of next s'catejnent starts he 
AssigTi’nent stoteirent -n this Cc-se. 



P2D 

,0 


DVP 

.T.+O 


IIS 

35 


;a)D 

2.1 


IRS 

35 



1,1 


IIS 

35 


SUB 

=8 


S!PO 

1,1 


TEA 

.10001 

E,0001 

BS5 


Coding for all 

TSI 

STKDX. 

the resb statements; 

?sx 

TSHTO.,4 


TVO 

EII05 . 


PZE 

nS 


TSI 

RESET. 


m 

HHIIO. 


STO 

3,1 


TSI 

HHIIO. 


STO 

4,1 


TSI 

HHIIO 


STO 

5,1 


TSJC 

RTHIO.,4 


TEA 

mE 

nS 

TSX 

IOHIC.,4 


PZE 

6 


TSX 

IOHXC.,4 


PZE 

3 


TEA 

lOHBP . 

mE! 

BSS 




B1 TiL. 

.10002 

.10002 I!3S 

!DSI 

B .0002 

CLA 

1,1 

ADD* 

5,1 

STO 

1,1 

CIA 

=2 

a?si 

JiTRTB 

(DILI 

.B0002 

B.0002 TIL'- 

X-K- 

CL. 

=jZf000002 000005 

CSL 

.RTRTIT 

01.. 


na 


TSL 

.RTRTN 

*JDD 

^2 

STO 

5,1 

THA 

B.0002 

.B0002 BSS 

TEii. 

.B0003 

B2 TEA 


LAO 

*-1,4 

TEa 

.10003 

.10003 BSS 

CLA 

=jZf000003400001 

TSL 

.RTRTr 


r 


TXI 


PZB 

1 

CIA 

1,4 

Pill 

1,4 

AlA 

«j^000000077777 

ANA 

»jZf0000602 77777 

OjLi 

=0050000000000 

SIiV 

»+1 

OU 


SPO 

1,1 

PSli 

B,0003 

Tm 

.lOOOl 

PliA 

A. 0003 

TJi.'. 

.S0001 

.LOOC1 Cl/ 

s2 

I’SL 

.RPRTN 

LLi 

P2,4 

SjCil 

*^+1 >4 

IiXA 

**,4 

PIZ 

“^+1 ,4,1 

JXil 

*+1,4 

I'R^l 


•P0001 BSS 


A. 0003 UO 

P2,4 

CM 

1,4 

Pill 

1,4 

ANA 

8^000000077777 

ANA 

■0000060277777 

OILl 

0000000000 


SLf 

*+2 

OIul 

1,1 

STO 


OU 

»2 

TSIi 

JlTROUir 

mi 

P2 

B.0003 'EM 

** 

m 

B .0003 

,P0003 BSS 

!EM 

uB 

G m 

CM 


iaHia.,4 

IZE 

6 

TSL 

I0HIC*,4 

PZE 

1 

TM 

lOHBP. 

hB BSS 

m 

spincK. 

m 

STHIO.,4 

irwo 

puioe. 

PZE 

23 

PSI. 

HBSBP 

m 

6,1 

SPQ 

3,1 

.30002 BSS 

im > 

»5 

SWi 

2,1 



CM 

5,1 

VAX 

0,4 

SID 

.S0003,4 

>S0004 BSS 


4,1 

SG}Q 

1,1 

CM 

5,1 

PAI 

0,4 

SID 

.30005,4 

CM 

6,1 

PAX 

A 

SID 

.P0003+2,4 

LDQ 

3,1 

VMS 

=983040,, 15 

ALS 

15 

mi 

2,1 

vm 

=1 63840,, 15 

ADD 

1,1 

SUB 

..IDII 

PAG 

,2 

CM 

6,1 

PAI 

,4 

SXD 

.NOOOI ,4 

.S0006 BSS 

TSX 

.V0001 ,4 

OSE 

1,1 

OllB 

2,1 

OKH! 

3,1 

CM 

-29,2 



TSIi 

HNIIO. 

,isroooi m 

*+1,2,** 

.T0003 CM 

1,1 

PAZ 

0,4 

m 

*+1,4,** 

m 

0,4 

sso 

1,1 

.80005 m 

.80006,4 

.10002 OliA 

2,1 

Pix 

0,4 

III 

*+1,4,1 

m 

0,4 

STO 

2,1 

.80003 !rzii 

.80004,4 

,10001 CM 

3,1 

PiOC 

0,4 

m-I 

*+1,4,3 

PM 

0,4 

m 

.80002,4 

ISI 

RIHIO.,4 

LM 

..IDZ2,2 

28 BQU 

Or 

IHA 

SJXJS 

3SMIEI 



MIBHlSr . .IDZ2 


EZ'nSBN 

.RCKIE 

Mmmi 

.EIEIII 

Emm 

.SUBR3 

Emm 

.DaRTlT 

,,YAR BSS 

223 

,1 , BSS 

1 

ERD 

?1 








